object fGeraLanc: TfGeraLanc
  Left = 418
  Top = 247
  Width = 515
  Height = 356
  BorderIcons = [biSystemMenu]
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = pm1
  Position = poDesktopCenter
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object lbl2: TLabel
    Left = 24
    Top = 40
    Width = 70
    Height = 13
    Caption = 'Nome Inquilino'
  end
  object lbl3: TLabel
    Left = 25
    Top = 81
    Width = 84
    Height = 13
    Caption = 'Nome Propriet'#225'rio'
  end
  object lbl5: TLabel
    Left = 128
    Top = 127
    Width = 94
    Height = 13
    Caption = 'Descri'#231#227'o da Conta'
  end
  object lbl6: TLabel
    Left = 24
    Top = 127
    Width = 53
    Height = 13
    Caption = 'Cod. Conta'
  end
  object lbl7: TLabel
    Left = 128
    Top = 173
    Width = 52
    Height = 13
    Caption = 'Total Parc.'
  end
  object lbl8: TLabel
    Left = 24
    Top = 173
    Width = 56
    Height = 13
    Caption = 'Vencimento'
  end
  object lbl9: TLabel
    Left = 188
    Top = 173
    Width = 48
    Height = 13
    Caption = 'Parc. Inic.'
  end
  object lbl10: TLabel
    Left = 244
    Top = 174
    Width = 41
    Height = 13
    Caption = 'Valor R$'
  end
  object lbl11: TLabel
    Left = 26
    Top = 15
    Width = 70
    Height = 13
    Caption = 'N'#186' Contrato -->'
  end
  object lbl1: TLabel
    Left = 74
    Top = 225
    Width = 50
    Height = 13
    Caption = 'Hist'#243'rico .:'
  end
  object edt_cod_inq: TEdit
    Left = 24
    Top = 55
    Width = 71
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Visible = False
  end
  object edt_Nome_inq: TEdit
    Left = 24
    Top = 55
    Width = 440
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnKeyPress = FormKeyPress
  end
  object edt_cod_pro: TEdit
    Left = 24
    Top = 95
    Width = 71
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    Visible = False
  end
  object edt_Nome_pro: TEdit
    Left = 24
    Top = 95
    Width = 440
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnKeyPress = FormKeyPress
  end
  object edt_total_parc: TEdit
    Left = 129
    Top = 188
    Width = 50
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    Text = '0'
    OnKeyPress = FormKeyPress
  end
  object edt_parc_ini: TEdit
    Left = 189
    Top = 188
    Width = 48
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    Text = '1'
    OnKeyPress = FormKeyPress
  end
  object BitBtn3: TBitBtn
    Left = 173
    Top = 9
    Width = 41
    Height = 25
    Caption = '...'
    TabOrder = 12
    OnClick = BitBtn3Click
  end
  object Data_VCTO: TJvDatePickerEdit
    Left = 23
    Top = 188
    Width = 96
    Height = 24
    AllowNoDate = True
    BorderStyle = bsNone
    Checked = True
    BevelKind = bkFlat
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnKeyPress = FormKeyPress
  end
  object edt_Contrato: TEdit
    Left = 100
    Top = 10
    Width = 70
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 13
  end
  object edt_cod_conta: TEdit
    Left = 24
    Top = 140
    Width = 71
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnKeyPress = FormKeyPress
  end
  object edt_Desc_conta: TEdit
    Left = 128
    Top = 140
    Width = 336
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnKeyPress = FormKeyPress
  end
  object BitBtn5: TBitBtn
    Left = 96
    Top = 141
    Width = 31
    Height = 23
    Caption = '...F8'
    TabOrder = 14
    OnClick = BitBtn5Click
  end
  object edt_Cod_imo: TEdit
    Left = 345
    Top = 10
    Width = 70
    Height = 21
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 15
    Visible = False
  end
  object edt_tipo: TEdit
    Left = 370
    Top = 188
    Width = 94
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnKeyPress = FormKeyPress
  end
  object MMJPanel1: TMMJPanel
    Left = 0
    Top = 277
    Width = 499
    Height = 41
    Align = alBottom
    TabOrder = 16
    Silhuette.Shape.ShapeText = 'Shape text'
    Silhuette.PictureShape.Picture.Data = {07544269746D617000000000}
    Silhuette.PictureShape.DisplayPicture = True
    Background.StartColor = clSilver
    Background.EndColor = clTeal
    Background.FillType = GradUpDown
    object BitBtn1: TBitBtn
      Left = 154
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Confirma - F4'
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 242
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Sair - F9'
      TabOrder = 1
      OnClick = BitBtn2Click
    end
  end
  object edt_Valor: TJvValidateEdit
    Left = 245
    Top = 188
    Width = 118
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    CriticalPoints.MaxValueIncluded = False
    CriticalPoints.MinValueIncluded = False
    DisplayFormat = dfCurrency
    DecimalPlaces = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnKeyPress = FormKeyPress
  end
  object edtHistorico: TEdit
    Left = 128
    Top = 220
    Width = 336
    Height = 24
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnKeyPress = FormKeyPress
  end
  object proc_conta: TSQLClientDataSet
    CommandText = 
      'select * '#13#10'   from PLANO_CONTAS '#13#10'where DESCRICAO like :PNOME'#13#10' ' +
      '   and GRUPO =:gp'#13#10'order by DESCRICAO '#13#10#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'PNOME'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'gp'
        ParamType = ptInput
      end>
    DBConnection = DM.scSge
    Left = 296
    Top = 24
    object proc_contaCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      Required = True
    end
    object proc_contaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 60
    end
    object proc_contaGRUPO: TStringField
      FieldName = 'GRUPO'
    end
    object proc_contaRECEITA_DESPESA: TStringField
      FieldName = 'RECEITA_DESPESA'
      Size = 10
    end
  end
  object dsLanc: TSQLDataSet
    CommandText = 
      'select lanc.*, con.DESCRICAO  '#13#10'from LANCAMENTOS lanc '#13#10'inner jo' +
      'in PLANO_CONTAS con '#13#10'on con.COD_CONTAS = lanc.COD_CONTAS '#13#10'wher' +
      'e lanc.COD_IMALU = :id'#13#10'   and  lanc.COD_PROPRIETARIO =:idpro'#13#10' ' +
      '  and  lanc.COD_INQUILINO =:idinq'#13#10'    and  lanc.MES =:mes'#13#10'    ' +
      'and  lanc.ANO =:ano'#13#10'    and  lanc.GRUPO =:gp'#13#10'    and  lanc.COD' +
      '_CONTAS =:con'#13#10'    and  lanc.ATIVO = '#39'S'#39
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'idpro'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'idinq'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'mes'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'ano'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'gp'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'con'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 262
    Top = 24
    object dsLancCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object dsLancCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancCOD_IMALU2: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancQUTDE: TIntegerField
      FieldName = 'QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancVALOR2: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dsLancPARCELA2: TIntegerField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancVENCIMENTO2: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancVIA: TStringField
      FieldName = 'VIA'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dsLancGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancTIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dsLancSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dsLancFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dsLancN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dsLancDATAPAGTO: TDateField
      FieldName = 'DATAPAGTO'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancSELECIONOU: TStringField
      FieldName = 'SELECIONOU'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dsLancVALORPAGO: TFloatField
      FieldName = 'VALORPAGO'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancVALORTROCO: TFloatField
      FieldName = 'VALORTROCO'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancATIVO: TStringField
      FieldName = 'ATIVO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dsLancVALORJUROS: TFloatField
      FieldName = 'VALORJUROS'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancVALORDESCONTO: TFloatField
      FieldName = 'VALORDESCONTO'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancDIA: TIntegerField
      FieldName = 'DIA'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancMES: TIntegerField
      FieldName = 'MES'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancANO: TIntegerField
      FieldName = 'ANO'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancINDICE_REAJ: TFloatField
      FieldName = 'INDICE_REAJ'
      ProviderFlags = [pfInUpdate]
    end
    object dsLancDESCRICAO_1: TStringField
      FieldName = 'DESCRICAO_1'
      ProviderFlags = []
      Size = 60
    end
  end
  object sBuscaConta: TSQLDataSet
    CommandText = 'select * from PLANO_CONTAS '#13#10'where COD_CONTAS =:id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 352
    Top = 40
  end
  object pm1: TPopupMenu
    Left = 359
    Top = 246
    object Procura1: TMenuItem
      Caption = 'Procura'
      ShortCut = 119
      OnClick = BitBtn5Click
    end
    object Alterar1: TMenuItem
      Caption = 'Confirma'
      ShortCut = 115
      OnClick = BitBtn1Click
    end
    object Sair1: TMenuItem
      Caption = 'Sair'
      ShortCut = 120
      OnClick = BitBtn2Click
    end
  end
end
